home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Folder Encryption.xpl < prev    next >
Text File  |  2001-05-14  |  2KB  |  87 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="4"
  3. "COUNT"="1"
  4. "UIPATH"="Appearance\Files&Folders\Folders"
  5. "NAME"="Folder Encryption"
  6. "LANGUAGE"="VBScript"
  7. "VERSION"="1.08"
  8. "OSVERSION"="0001011"
  9. "TEXT 1"="Folder"
  10. "DESCRIPTION 1"="By default, Windows 2000 enables you encrypt any folder."
  11. "DESCRIPTION 2"="This plug-in can be used to disable this "Encryption" feature for some folders. If a folder has been picked and encryption has been disabled, the user will no longer be able to encrypt it and an error message will be displayed if he tries to do this ("This directory has been disabled for encryption")."
  12. "DESCRIPTION 3"="Please note that this plug-in *DOES NOT* actual encrypt the folder, it can only used to allow or disallow the user this encryption."
  13. "DESCRIPTION 4"=" "
  14. "DESCRIPTION 5"="USAGE: First pick a folder, then click "Apply changes". Enter "1" to enable encryption or "0" to disable encryption."
  15. "AUTHOR"="Xteq Systems"
  16. "CONTACTURL"="http://www.xteq.com"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  18. "COMMENT 1"=" "
  19. "COMMENT 2"=""
  20.  
  21.  
  22.  
  23. sFile="desktop.ini"
  24. sSec="Encryption"
  25. sValName="Disable"
  26.  
  27. Sub Plugin_Initialize 
  28. End Sub
  29.  
  30.  
  31. Sub Plugin_CheckData(ElementIndex)
  32. End Sub
  33.  
  34.  
  35.  
  36. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  37.  sPath=GetUIElement(1)
  38.  if right(sPath,1)<>"\" then
  39.     sPath=sPath & "\"
  40.  end if
  41.  
  42.  sValue=IniReadValue(sPath & sFile,sSec,sValName)
  43.  
  44.  if sValue="0" or IsEmpty(sValue) then
  45.     bEnabled=true
  46.     sText="Folder can be encrypted. Enter ┤0┤ to disable"
  47.  else
  48.     bEnabled=false
  49.     sText="Folder is *DISABLED* for encryption. Enter ┤1┤ to enable"
  50.  end if
  51.     
  52.  sIP=InputWindow(sText,"",1)
  53.  if Len(sIP)>0 then
  54.     if sIP="1" or sIP="0" then
  55.  
  56.        if sIP="1" then
  57.           Call IniWriteValue(sPath & sFile,sSec,sValName,"0")
  58.        else 
  59.           Call IniWriteValue(sPath & sFile,sSec,sValName,"1")
  60.        end if
  61.        MsgInformation "Changes have been applied"  
  62.  
  63.     else
  64.        MsgInformation "Wrong input, please enter 0 or 1"
  65.     end if
  66.  else
  67.     MsgInformation "No input given, no changes were made"
  68.  end if
  69.  
  70. ' MSGInformation len(sIP)
  71.  
  72.  
  73.  
  74.  '
  75.  '
  76.  '   
  77.  '   Call MsgInformation("Comment for folder '" & vbCrLf & sPath & vbCrLf & "' set to '" & sComment & "'")
  78.  'end if
  79. End Sub
  80.  
  81.  
  82. Sub Plugin_Terminate 
  83. End Sub
  84.  
  85.  
  86.  
  87.